1 미흡했던 파이 차트

pie_chart

pie_chart

국가별 관광객이 한국을 방문할 때 고려하는 요인을 다시 그린다. 지난 중간 발표 때 파이 차트(Pie Chart)를 그렸던 것이 ‘항목별 차이가 제대로 보이지 않는다’는 지적을 받았다. 자료의 각 범주를 뚜렷하게 구별해 보일 수 있는 방법으로 stacked barplot을 그린다. 파이 차트가 각도(angle)의 차이로 범주별 비중을 나타낸다면 stacked barplot은 개별 막대의 높이로 관측 빈도의 차이를 나타낸다.

2 범주 재설정

data 변수 중 목적_1위, 목적_2위, 목적_3위가 한국 방문을 선택하게 한 요인에 해당한다.

## [1] 96219

기존에 파이 차트로 그린 데이터는 원 데이터를 분석한 결과가 아닌, 한국관광공사가 정리한 결과 보고서를 바탕으로 그린 그림이었다. 이번에 그릴 barplot은 범주별 관측값을 직접 세야 하기 때문에 원 데이터를 참고한다. 그런데, 원 데이터 통해 확인한 방문 요인은 모두 17개로, 파이 차트에 반영된 범주(8)개보다 많다. 범주가 너무 많으면 분석 결과도 뚜렷하게 보이기 힘드니, 8개 범주로 데이터를 병합한다.

##  [1] "K-POP/ 한류스타 관련 팬 미팅, 촬영지 등 경험"
##  [2] "경제적인 여행비용"                           
##  [3] "기타"                                        
##  [4] "기후/ 뚜렷한 사계절"                         
##  [5] "레저 및 스포츠 활동"                         
##  [6] "쇼핑"                                        
##  [7] "숙박/ 교통 등 관광 편리성 및 안전성"         
##  [8] "역사/문화 유적 탐방"                         
##  [9] "유흥/놀이 시설"                              
## [10] "음식/미식 탐방"                              
## [11] "자국과의 이동 거리"                          
## [12] "자연 풍경 감상"                              
## [13] "치료 및 미용 서비스"                         
## [14] "친구, 친지 방문"                             
## [15] "템플스테이 태권도 등 한국 전통 문화 체험"    
## [16] "패션, 유행 등 세련된 현대 문화"              
## [17] "휴가 시간"

한국관광공사가 발표한 방문 목적 8개는 다음과 같다 : 쇼핑, 식도락, 역사.유적지, 자연.풍경.감상, 친구, 케이팝, 패션.트렌드, 휴식

원 데이터에 있는 17개 범주 중 [2] [3] [4] [7] [11]은 관광 편의로 새로 지정한다. [1]은 케이팝 [8][15]는 역사와 유적 [16]은 패션과 트렌드로 이름 바꾼다.

index <- purpose %in% purposes[c(2,3,4,7,11)]
levels(purpose) <- c("케이팝", "관광 편의", "관광 편의", "관광 편의", "레저 및 스포츠", "쇼핑", "관광 편의", "역사와 유적", "휴식", "식도락", "관광 편의", "자연 및 풍경", "관광 편의", "지인 방문", "역사와 유적", "패션과 트렌드", "휴식")
data[, which(colnames(data)=="목적_1위")] <- purpose

print(unique(purpose))
##  [1] 식도락         자연 및 풍경   패션과 트렌드  쇼핑          
##  [5] 지인 방문      케이팝         휴식           역사와 유적   
##  [9] 관광 편의      레저 및 스포츠
## 10 Levels: 케이팝 관광 편의 레저 및 스포츠 쇼핑 역사와 유적 ... 패션과 트렌드

3 위로 쌓은 막대 그래프

pie_chart

pie_chart

library(plotly)
library(RColorBrewer)

purpose_of_visit <- data[, which(colnames(data) %in% c("목적_1위", "국적"))]
colnames(purpose_of_visit) <- c("purpose", "nationality")

purpose_of_visit %>% 
  count(nationality, purpose) %>% 
  #group_by(nationality, purpose) %>% 
  #mutate(rate = round(n / sum(n)*100, 2)) %>% 
  #plot_ly(x = ~nationality, y = ~ paste(rate, "%", sep=""), color = ~purpose) %>%
  plot_ly(x = ~nationality, y = ~ n, color = ~purpose, colors = brewer.pal(n = length(purposes), name = "Set2")) %>% 
    add_bars() %>% 
    layout(barmode = "stack")